home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / language / isetl.arc / tupget.t < prev    next >
Text File  |  1987-08-20  |  280b  |  24 lines
  1.    x:= [1,2,3,om,om,om];
  2. x;
  3.    x:= [om,om,om,om];
  4. x;
  5.    x:= [om,1,om,2,om,3];
  6. x;
  7.    x:= [om,1,om,2,om,3,om];
  8. x;
  9.  
  10.    [x,y,~,z] := om;
  11. x;y;z;
  12.  
  13.    [x,y,~,z] := [1,2,3,4];
  14. x;y;z;
  15.  
  16.    [x,y,~,z] := [11,12,13,14,15,16,17];
  17. x;y;z;
  18.  
  19.    [x,y,~,z] := [21,22];
  20. x;y;z;
  21.  
  22. [1,1..10];
  23. [10,10..1];
  24.